 //Murray Math

 SqW=10;//Square Width (Days)..4 thru 256
 MM=1;//Start  Month...1 thru 12
 DD=1;//Start  Day... 1 thru 31
 YY=2003;//Start Year

 T0=LastValue(ValueWhen(Day()==DD AND
 Month()==MM AND
 Year()==YY,Cum(1)));

 Sqrs=int((LastValue(Cum(1))-T0)/SqW)-1;

> S0=T0+(Sqrs*SqW);
>
> Lo=LastValue(ValueWhen(Cum(1)==S0+SqW-1,
> LLV(Min(H,L),SqW)));
>
> Hi=LastValue(ValueWhen(Cum(1)==S0+SqW-1,
> HHV(Max(H,L),SqW)));
>
> Sf=IIf(Hi>25,IIf(log(0.4*Hi)/log(10)-
> int(log(0.4*Hi)/log(10))>0,
> exp(log(10)*(int(log(0.4*Hi)/log(10))+1)),
> exp(log(10)*(int(log(0.4*Hi)/log(10))))),
> 100*exp(log(8)*(int(log(0.005*Hi)/log(8)))));
>
> N=
> IIf(log(Sf/(Hi-Lo))/log(8)<=0,0,
> IIf(frac(log(Sf/(Hi-Lo))/log(8))==0,
> int(log(Sf/(Hi-Lo))/log(8)),
> int(log(Sf/(Hi-Lo))/log(8))+1));
>
> Si=Sf*exp(-N*log(8));
>
> M=int(((1/log(2))*log((Hi-Lo)/Si))+.00001);
>
> I=round(((Hi+Lo)*.5)/(Si*exp((M-1)*log(2))));
>
> B=(I-1)*Si*exp((M-1)*log(2));
> TT=(I+1)*Si*exp((M-1)*log(2));
>
> Er=IIf(Hi-TT>0.25*(TT-B) OR
> B-Lo>0.25*(TT-B),1,0);
>
> MM=IIf(Er=0,M,IIf(Er=1 AND M<2,M+1,0));
> NN=IIf(Er=0,N,IIf(Er=1 AND M<2,N,N-1));
>
> Si=Sf*exp(-NN*log(8));
>
> I=round(((Hi+Lo)*.5)/
> (Si*exp((MM-1)*log(2))));
>
> B=ValueWhen(Cum(1)>=S0,
> (I-1)*Si*exp((MM-1)*log(2)));
>
> TT=ValueWhen(Cum(1)>=S0,
> (I+1)*Si*exp((MM-1)*log(2)));
>
>
> L1=ValueWhen(Cum(1)>=S0,
> B+(0.125*(TT-B)));
>
> L2=ValueWhen(Cum(1)>=S0,
> B+(2.0*(0.125*(TT-B))));
>
> L3=ValueWhen(Cum(1)>=S0,
> B+(3.0*(0.125*(TT-B))));
>
> L4=ValueWhen(Cum(1)>=S0,
> B+(4.0*(0.125*(TT-B))));
>
> L5=ValueWhen(Cum(1)>=S0,
> B+(5.0*(0.125*(TT-B))));
>
> L6=ValueWhen(Cum(1)>=S0,
> B+(6.0*(0.125*(TT-B))));
>
> L7=ValueWhen(Cum(1)>=S0,
> B+(7.0*(0.125*(TT-B))));
>
> Plot(B,"B",colorWhite,styleLine);
> Plot(TT,"TT",colorWhite,styleLine);
>
> Plot(L1,"",colorRed,styleLine);
> Plot(L2,"l2",colorYellow,styleLine);
> Plot(L3,"l3",colorBlue,styleLine);
> Plot(L4,"l4",colorYellow,styleLine);
> Plot(L5,"l5",colorBrightGreen,styleLine);
> Plot(L6,"l6",colorBlue,styleLine);
> Plot(L7,"l7",colorBrightGreen,styleLine);
> Plot(C,"close",colorBlack,styleCandle);
>
> Title=Name()+"\n"+EncodeColor(colorWhite)+"0/8th
>
> "+EncodeColor(colorBlack)+WriteVal(b,1.2)+"\n"+EncodeColor(colorRed)+"1
>
> /8th
>
> "+EncodeColor(colorBlack)+WriteVal(L1,1.2)+"\n"+EncodeColor(colorYellow
>
> )+"2/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L2,1.2)+"\n"+EncodeColor(colorBlue)+
>
> "3/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L3,1.2)+"\n"+EncodeColor(colorYellow
>
> )+"4/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L4,1.2)+"\n"+EncodeColor(colorBright
>
> Green)+"5/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L5,1.2)+"\n"+EncodeColor(colorBlue)+
>
> "6/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L6,1.2)+"\n"+EncodeColor(colorBright
>
> Green)+"7/8th
>
> "+EncodeColor(colorBlack)+WriteVal(L7,1.2)+"\n"+EncodeColor(colorWhite)
>
> +"Top
> = "+EncodeColor(colorBlack)+WriteVal(tt,1.2);
